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SECTION 1: INTRODUCTION 



The SCRIPT program provides the facility to format and print 
a manuscript that has been stored as one or more files in 
the Conversational Monitor System (CMS) . The SCRIPT program 
operates as a CMS command. 



PURPOSE OP THE SCRIPT PROGRAM 



The SCRIPT program reads unformatted manuscript text from 
one or more specified files* As the text is read, it is 
inspected for the occurrence of SCRIPT control words vhich 
may define formatting characteristics. Under the control of 
the default settings or user specified control words, the 
text is formatted and outputted* 



EHTTRQNHENTAL CHARACTERISTICS 



The SCRIPT program is designed for use with CMS. CMS 
operates under the VM/370 system. SCRIPT is able to operate 
in the minimum configuration required by CMS, though 
additional configuration facilities may be required to 
support certain SCRIPT features such as upper and lower case 
high-speed printer output, which requires the TN print 
train. 

The SCRIPT program operates in the CMS user's area just like 
typical user programs and other processing programs. The 
interfaces between this program and CMS are: 

• The CMS command line parameter list. 

• CMS file system functions (ERASE, RDBUF, WRBUF, 
FINIS and STATE) 

• Printer I/O function (PRINTR) 

• Console I/O functions (WAITRD and TYPLIN) . 

• CMS simulated OS macro instructions (SPIE, GETMAIN, 
FREEMAIN) . 

All files to be processed as input to the SCRIPT program 
must have a filetype of SCRIPT. By virtue of the SCRIPT 
filetype, these files consist of variable length records 
with a maximum line length of 132 characters (actually 
SCRIPT limits line length to 240 characters, but CMS and CP 
further limit user text lines to 132 characters) . 
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PHYSICAL CHARACTERISTICS 



The SCRIPT program consists of a single CMS load module 
(filetype MODULE) • When the user requests the SCRIPT 
command, the CMS Command Processor causes the SCRIPT module 
to be loaded into the user^s area, starting at location 
X« 20000 •, and then control is transferred to SCRIPT. Upon 
completion or abnormal termination, SCRIPT returns control 
to the CMS Command Processor* 

The SCRIPT module's instructions and static data areas 
require^ about 36K bytes of main storage. In addition, 
certain SCRIPT functions such as Save/Restore- Status, 
Multiple Column Processing, and Set-Symbols, may require 
dynamic main storage assignment via the GETMAIN macro 
instruction. If there is not enough dynamic main storage 
available to satisfy the requirements of such a SCRIPT 
function, an error message is printed and SCRIPT processing 
is terminated. 



OPERATIONAL CONSIDERATIONS 



The SCRIPT program is invoked via a Command Parameter List. 
When the user enters a command to CMS, the CMS Command 
Processor scans the request and converts it to the standard 
format of a CMS Command Parameter List. The parameter list 
consists of a sequence of eight-byte entries, one for each 
word entered as part of the request. See the IBM Virtual 
Machine FacilitY/370 Assembler Programmer's ^ GuideT 
GC20-1802, for additional information on parameter list 
format and command invocation. 

When the SCRIPT program is loaded and receives control from 
CMS, register 1 contains the address of the parameter list. 
The parameter list may contain the following information in 
consecutive eight-byte fields: 

• The command name, SCRIPT (required) . 

• The filename of the master CMS file to be processed. A 
filetype of SCRIPT is assumed (required) . 

• The CENTER option which causes all output to be shifted 
right on the printed page. 

• The CONTINUE option which causes processing to continue 
after detecting and printing any recoverable errors. 
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• The DEBUG option which causes the SPIE SVC macro 
instruction to be bypassed^ thus allowing the correct 
processing of DEBUG breakpoints. 

• The FILE option which causes the output to be directed 
to a file instead of the terminal or printer. The file 
is named $filename SCRIPT, where filename is the name 
of the input master file. 

• The BARK option which causes the beginning of each line 
of the original input to be marked by underlining the 
first character on the output. 

• The HOHAIT option which causes output to start 
immediately without waiting for the first page to be 
adjusted. 

• The NUMBER option which causes the input filename and 
line number to be printed to the left of the formatted 
output line. 

• The OFFLINE option which causes the output to be 
directed to the line printer instead of the terminal. 

• The PAGExxx option which causes output to be suppressed 
until page xxx is reached. 

• The QUIET option which causes the version 
identification information, normally printed on the 
terminal immediately after SCRIPT gets control, to be 
suppressed. 

• The SINGLE option which causes processing to terminate 
after printing a single page. 

• The STOP option which causes printing to pause at the 
bottom of each page to allow readjusting or changing of 
the paper. 

• The TRANSLATE Option which causes the character 
translate table to be initialized so that lower-case 
letters are printed as upper-case letters. 

• The UNFORMATTED option which causes the master SCRIPT 
file to be printed without any formatting, ignoring all 
control words. 

• The 2PASS option which causes two processing passes 
through the input, with actual output only during the 
second pass. 

The options, if any specified, should be enclosed by left 
and right parentheses. The options, except for PAGExxx, may 
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be abbreviated by truncation down to two characters* For 
example, CONTINUE may be abbreviated as CONT or CO. 

Output consists of the processed text, diagnostic messages 
and information messages. Output is sent to the terminal by 
use of the CMS TYPLIN function, to the line printer by use 
of the CMS PRINTR function, or to a file by use of the CMS 
WRBUF function. 

A temporary file named CMSUT1 SCRIPT may be created during 
SCRIPT processing. It is automatically erased on normal 
SCRIPT termination. 
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SECTION 2: METHOD OF OPERATION 



This section describes the logic and operation of the SCRIPT 
program and emphasizes the flow of data and control 
information through buffers and tables (see Method of 
Operation Diagram 1) . 



INITIALIZATION 



The CMS command processor uses the CMS SVC 202 linkage to 
invoke the SCRIPT program. Control is passed initially to 
the primary SCRIPT control section (SCSPRT) . This routine 
starts by performing the following initialization 
operations: (see Method of Operation Diagrams 2 and 3) . 

1. Checks the filename specified in the Command 
Parameter List, If it was not specified, prints 
error message and terminates. If it was the single 
character ?, prints the list of SCRIPT options and 
control words, using entry point SPRCWORD in CSECT 
SCSFOR and then terminates. 

2. Analyzes the options specified in the parameter list, 
if any, by means of the PARMROOT internal function. 
Appropriate indicators and variables are set for the 
options specified • 

3. Types the version number identification (unless 
supressed by the QOIET option) and issues a SPIE SVC 
macro to regain control in case of a program 
interrupt (unless supressed by the DEBUG option) . 

4. Sets the variables and counters (file name, line 
number, page number, etc.) to their appropriate 
initial values. 

5. Transfers control to the main processing loop (label 
MAIN within CSECT SCSPRT) . 



MAIN PROCESSING SEQUENCE 

The main processing loop performs the following operations, 
(see Figure 1 and Method of Operation Diagrams 4a and 4b) : 

1. Reads the next data line from the current input file, 
LICENSED MATERIAL • PROPERTY OF IBM ^ 
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Figure 1. Main Processing Loop (Part 1 of 2) 
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Figure 1. Main Processing Loop (Part 2 of 2) 
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If the end-of-file is reached and the current file 
had been imbedded, resumes reading from next line of 
the file that invoked the current file. If the 
end--of-file condition is reached in the master file, 
processing terminates. 

2. Examines the first character of the input line. If 
it is a period (.), control is transferred to the 
control word processor (label PERIOD in CSECT 
SCSPRT) . If the first character of the line is a 
blank or a tab character, any residual line from 
previous input is sent to the output device. (This 
is the break function) • 

3. The new text line is converted into List Link Element 
Form (LLEF) . The new line is then merged with any 
residual line from previous input. If the merged 
line's length exceeds the current column length 
setting, it is split into two LLEF lines - a primary 
and a residual line. The split occurs between words 
such that the primary line is equal to or less than 
the specified column length. The primary line is 
sent to the output device after being right- justified 
(if JOSTIFICATIOM-MODE is in effect) . This process 
is repeated starting at step 1 above until the input 
files have all been processed. 



LIST LIHK ELEMENT FORM 



As noted in the description of the main processing sequence, 
the most recent text input, while being manipulated, is 
stored in a list link element form (LLEF) . Each character 
of text is physically stored in a separate link block. 
Pointers are used to indicate the order of the characters on 
the line and the occurrence of overprinted characters (e.g., 
underlined characters) . All explicit backspace characters 
are removed since they are not necessary in the LLE form. 

Figure 2 illustrates an example text line in three forms : 
(1) as a printed (graphic) line, (2) as a sequence of 
physical bytes as typed at the terminal, and (3) in the link 
list element form. Utility routines are incorporated into 
the SCRIPT program to convert text lines between physical 
byte strings and LLE form. 

The list link element form is used for two different 
purposes in SCRIPT: (1) processing of overprinted 
characters on output, and (2) formatting of the line. The 
physical mechanism for producing overprinted characters is 
different for a terminal (i.e., uses characterl -- backspace 
- character2 sequence) than for a line printer (i.e., print 
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entire line^ and then, without advancing the paper ^ print 
characters) . Straight-forward algorithms are provided in 
SCRIPT for converting a line in LLE form into the 
appropriate character string (s) needed for either terminal 
or line printer output format. 

In the process of converting the input text into formatted 
output^ especially for producing right margin justification, 
it is often necessary to split a line into two parts, merge 
two parts together, or convert a single blank into multiple 
blanks. These tasks are simplified by use of the LLE form 
for representing text lines internally. 

The list link element format is further described and 
discussed in the IBM publication: "SCRIPT: An Online 
Manuscript Processing System" by S. B. Madnick and A. 
Moulton. This report has been published in the IEEE 
Transactions on Engineerin g W rit ing and Speech, Vol. EHS-U, 
Ho. 2, August 1968, and can be obtained by written reguest 
to IEEE at 345 East 47th Street, New York, Hew York 10017. 



RIGHT MARGIH JOSTIFICATIOH ALGORITHM 



Two passes over the primary line are needed to justify the 
left and right margins. During the first pass the primary 
line is scanned up to and including the last complete "word" 
(group of non-blank characters separated by blanks) 
contained within the length desired for justification. The 
number of words is determined along with the number of 
spaces remaining between the last word and the reguired line 
length. Dividing the number of spaces needed by one less 
than the number of words produces the number of extra spaces 
that should be inserted after each word for correct 
justification. Unfortunately, it is not possible to insert 
fractional spaces. Therefore the fractional components are 
accumulated until at least a half space is accumulated, a 
whole space is inserted into the line and subtracted from 
the accumulated sum of fractions. 

The second pass is reguired to record the added spaces. 
Each link element contains a multiplier field initially set 
to one. During the second pass the multiplier for the 
appropriate blank link elements is increased without 
altering the data structure. 

The LLE data structure is also used for a variety of other 
facilities, such as interpreting "tab" characters, and 
converting them to the appropriate number of blanks or user 
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specified "pad" characters* 



(The character "." represents a blank.) 



I < Desired Length ^ > | 

1 2 3 4 5 6 7 8 9 10 11 12 13 1U 15 16 17 18 19 20 21 22 23 24 
AB.CD.EF, GHI.JKL.M.HOPBS 

< > < > < > < > < > <-> 

12 3 4 5 6 



Desired Line Length = 20 

Number of Complete Words -1=5 

Number of Spaces Needed = 2 

Number of spaces to be inserted between every word = 

Number of Extra Spaces per Word = 2/5 or 4/10 



I < Desired Length > | 

1 2 3 4 5 6 7 8 9 10 1 1 12 13 1 4 15 16 17 18 19 20 
AB.CD..EF,GHI.,JKL,M 
(4/10) (8/10) (2/10) (6/10) (0) 



Figure 3. Justification Process 
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CONTROL WORD PROCESSING 



When an input line starting with a period is read by the 
main processing loop, control is transferred to the control 
word processing routine (see Method of Operation Diagram 5) • 

The control word name, immediately following the period, may 
be in either of two forms: standard abbreviated form or 
unabbreviated (possibly truncated) form. For example, .BC is 
the standard abbreviated form for the Balanced-Columns 
control word. On the other hand, . BALANCE^COLOMNS and 
•BALANCE are examples of the unabbreviated form of the 
Balance Columns control word, untruncated and truncated 
respectively. If the unabbreviated form is read, it is 
converted to the standard abbreviated form by the SABBREV 
routine. 

The control word action table is searched, by binary 
look-up, for a match with the abbreviated control word. If 
a match is not found, an error exit is taken and an 
appropriate error diagnostic is printed. If a match is 
found, the action indicated in the table is performed. 
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In general^ one of three kinds of actions is performed: 

!• A particular switch (binary variable) is set on or 
off. 

2. A particular variable (or variables) is set to a 
specific value, 

3. A special action routine is invoked. 

In the first two cases the particular switch or variable set 
has its effect by being part of the normal computations of 
the main processing loop. For example, the 
JUSTIFICATION-MODE switch is tested and the COLUMN-LENGTH 
variable is used as part of the formatting illustrated in 
Method of Operation Diagram 4. 



SWITCH SETTING: 



Control words that merely cause switches to be set on or off 
are facilitated by means of the action routines SHON and 
SWOFF. All such switches are contained in the bytes SWITCH 
and/or AUGSW and the particular bits to be turned on or off 
are designated in the flag bytes of the control word action 
table. 

The control words that fit into this category and their 
action are listed in Table 1. 



I Control Word 
I 



I Balance-Columns 

I Break 

I Comment 

I Concatenate-Mode 

1 Format— Mode 

I Justification— Mode 

I No— Balance— Columns 

I No— Concatenate— Mode 

I Ho-Format-Mode 

I No-Justif ication- 

I Mode 

I Single— Space— Mode 



1 Abbreviated | Switches 

1 1 1 


1 OH/OFF 1 


1 BC 


INBCSHS 


Off 1 


1 BS 


(None 1 


— 1 


1 CH 


(None 


[ — ■ 1 


1 CO 


INFSiS 


Off 1 


1 FO 


|NFSIfS,NJSHS 


1 Off 1 


1 JU 


INJSH5 1 


Off 1 


1 NB 


IMBCSHS 


1 On i 


1 HC 


INFSffS 1 


On 1 


1 NF 


|BFSHS,NJSWS 

f 1 


1 On 1 


1 MJ 


jHJFSHS 


On 1 


1 SS 


IDSSHS 1 


Off 1 



Table 1. 
Processing of Control Words that 
Set Switches. 
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VARIABLE SETTING: 



Control words that primarily cause a variable to be set have 
separate short action routines. These action routines check 
that the value to be assigned to the variable is allowable. 
For example^ the heading margin setting cannot exceed the 
top margin setting. 

The control words that fit into this category and the 
corresponding variable (s) set are listed in Table 2. 



1 Control Word 

1 - . . ,_ , , , 


! Abbreviated 


1 Bottom-Margin 


BH 


{Center 


1 CE 


1 Column-Length 


1 CL 


1 Control-Word-Separator 


1 CW 


j Doable-S pace-Mode 


1 DS 


1 Footing— Margin 


FM 


1 Heading-Harging 


HM 


(Indent 


1 IH 


(Literal 


1 LI 


(Line-Length 


1 LL 


(Line-Spacing 


1 LS 


(Offset 


OF 


(Page-Length 


PL 


(Page-Number 


PN 


( Page— Number-Symbol 


PS 


(Right-Adjust 


RI 


( Terminal-Input 


TE 


(Top Margin 


TM 


j Ondent 


UN 



Variables 



CERISHS=off 
CERISWS=off 



1 

IBOTMRG 

(CECNT and 

jCECNT and 

(CSTABLE 

(DSCHT=2 and DSSWS=on 

(FTHRG 

IHDNRG 

(INDL, RMARGIN, OFFL, OFFLI 

(LICNT 

(LLZ (CLZ if CLSWS =off) 

(DSCNT and DSSWS =on 

(INDL, RMARGIN, OFFL, OFFLI 

(PL, PLCT 

(Switches: PA60FF, PINCRNO, ROHANSW 

(PAGENSYM 

(CECNT and CERISWS =on 

(TECHT 

( TOPMRG 

jDNDL, RMARGIN 



Table 2. 
Processing of Control Words that 
Set Variables. 



SPECIAL ACTION ROUTINES: 



The remaining 31 SCRIPT control words require special action 
routines to perform their functions. To simplify the 
explanations, these control words can be conveniently 
divided into ten groups: 

1. Page titles 

2. Page eject 

3. Switch input file 
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4. Sectioning 

5. Status handling 

6. Symbol processing 
?• Terminal I/O 

8. Termination 

9. Multiple Columns 
10. Miscellaneous 

The control words, their corresponding action routines name, 
and their division into these ten groups is illustrated in 
Table 3. 
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Control Word 



Append 

Bottom— Title 

Column-Begin 

Column— Definition 

Conditional-Column- 
Begin 

Conditional— Page- 
Eject 

Conditional— Section 

Delay— Imbed 

End— of-File 

Even-Page-Bottom— Title 

Even— Page— Eject 

Even— Page-Top— Title 

Footing 

Heading 

Imbed 

Odd— Page— Bottom— Title 

Odd— Page— Eject 

Odd— Page— Top— Title 

Page— Eject 

Quit 

Read-Terminal 

Restore— Status 

Revision-Code 

Save— Status 

Set-Symbol 

Space-Line 

Substitute— Symbol 

Tab— Setting 

Top-Title 

Translate— Character 

Type-on— Terminal 





1 Name 


|G; 


coup 1 


Abbreviated 


jof Action Boatn 




AP 


1 AP 


|3: Switch input file | 


BT 


1 BT 


1 1 : Page titles | 


CB 


1 CB 


|9: Haltiple column j 


CD 


1 CD 


|9: Hultiple column | 


CC 


1 CC 

1 


|9: Multiple column | 


CP 


CP 


|2: Page eject | 


CS 


1 CS 


4: Sections | 


DI 


1 DI 


|10: Hiscellaneous j 


EF 


EOFSET 


8 


: Termination | 


EB 


EB 


|1 


: Page Titles ( 


EP 


EP 


2. 


: Page Eject j 


ET 


ET 


11; 


: Page Titles \ 


FT 


FT 1 


1: 


: Page Titles 1 


HE 


HE 


|1: 


: Page Titles | 


IH 


IH 1 


3: 


: Switch input file 1 


OB 1 


OB 


1; 


: Page Titles | 


OP i 


OP i 


2: 


: Page eject j 


OT ! 


OT 


1: 


: Page Titles | 


PA 1 


PA 1 


2; 


: Page Eject j 


QO 1 


TBOEEND j 


8: 


: Termination j 


BD 1 


BD 


7! 


' Terminal I/O j 


BE 1 


BESTOBE 1 


5: 


: Status 1 


BC 1 


BC 


4: 


. Sections j 


SA 1 


SAVE 1 


5: 


' Status 1 


SE 1 


SET 1 


6: 


Symbols | 


SP 1 


SP 


10: Hiscellaneous | 


SO 1 


SOB 1 


6: Symbols | 


TB 1 


TB 1 


10: Hiscellaneous j 


TT 1 


TT 1 


1 : Page Titles \ 


TB 1 


TB 1 


10: Miscellaneous j 


TI 1 


TT 1 


7: 


Terminal I/O | 



Table 3. 
Processing of Control Words that 
Reguire Special Action Routines* 
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GROOP 1 PROCESSING — PAGE TITLE 



ntrol 


. Words: 


Entry Point 


.BT 


Bottom-Title 


(BREMTRY) 


.EB 


Even-Page-BottoB-Title 


(EBEHTRY) 


.ET 


Even-Page- Top- Title 


(ETEHTHY) 


.FT 


Footing 


(BTEHTRY) 


.HE 


Heading 


(HEENTRY) 


.OB 


Odd-Page-Bottora-Title 


(OBEHTRY) 


.OT 


Odd- Page-Top-Title 


(OTEHTRY) 


.TT 


Top-Title 


(TTEHTRY) 



The group 1 control words are processed by the STITLE CSECT 
within the SCSFOR module. There are multiple entry-points 
into this CSECT as indicated in the list above (e.g., 
BTEHTRY, EBENTRY, etc.) . 

There are 12 buffer areas used by these routines. There is 
a set of three separate buffers kept for each odd-page top 
title, odd-page bottom title, even-page top title, and 
even-page bottom title (i.e. 3 buffers per title x 4 titles 
= 12 buffers). The three buffers per title are used to (1) 
hold the portion of the title to left-adjusted, (2) the 
portion of the title to be centered, and (3) the portion of 
the title to be right-adjusted. The four basic control 
words Even-Page Bottom Title, Even-Page Top Title, Odd-Page 
Bottom Title, and Odd-Page Top Title each directly fill in 
one of the four buffer sets. The control word Bottom Title 
fills in both the even-page and odd-page bottom title buffer 
sets, and similarly for the Top Title control word. The 
Heading and Footing control words operate similarly but only 
the left-adjusted portion of the title is retained from the 
control word. There is no centered positions and the 
right-adjusted portion is set to the characters PAGE &. The 
Heading and Footing control words are primarily provided for 
compatability with earlier versions of SCRIPT^ 

When the bottom of a page or top of a page are encountered 
during normal SCRIPT text formating, the FORMTITL 
entry-point into the STITLE CSECT is called. It selects the 
appropriate even/odd top/bottom title buffer set, formats 
it, and returns it for outputting. In order to perform this 
operation, FORMTITL is provided with the following 
information: 

• current page number. 

• current line length setting. 

• whether top or bottom title requested. 

• whether arabic or roman numerals are 
to be used for page numbering. 

• whether page numbering is to be supressed 
for the Heading Control Word. 
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GROUF 2 PROCESSIHG — PAGE EJECT 



Control Words: 

•CP Condi tional-Page-E^ect 
• EP Even-Page-Eject 
.OP Odd-Page-Eject 
.PA Page-Eject 

These control words are all variations on the basic 
Page-Eject control word. If the user specified number is 
less than the difference between PLCT (number of lines left 
on page) and BOTMRG (number of lines reserved for a bottom 
margin) , a Page-Eject occurs. Otherwise, the control word is 
ignored. 

The Even-Page Eject and Odd-Page Eject control words always 
cause a Page-Eject. They may cause one additional 
Page-Eject, if necessary, to make PAGEN (the current page 
number) even or odd, respectively. 

The basic PAGE internal routine is guite important since it 
is also automatically invoked whenever the PLCT becomes less 
than or egual to BOTHRG during normal output formating. 
Each time an output line is produced, the PLCT is 
decremented and this check is made. 

If the Page-Eject control word was used and the new page 
number is explicitly specified, the special entry PAGEZ into 
the PAGE routine is used. Otherwise, the PAGE entry-point 
is used and the new page number counter, NEWPAGEN, is set 
to PAGEN* 1. PLCT - BOTMRG ♦ FTHRG blank lines are generated 
to position the output forms to the bottom title location. 
A bottom title, if one had been specified earlier, or a 
blank line is generated. Then, BOTMRG - FTMRG ♦ TOPMRG - 
HDMRG blank lines are generated to position the output forms 
to the top title location. 

Before printing the top title, on the new page, there are 
several checks made first. If the STOP option has been 
specified, a pause is generated to allow the user to 
manipulate the terminal paper. If the SINGLE page option 
had been specified, processing terminates. If the PAGEXXX 
option had been specified, the new page number is compared 
with the number specified by the user and the no print 
switch, NPSWS, is turned off if the page numbers match. 
Finally, the top title is printed and HDMRG blank lines are 
printed. This leaves the output form position for resuming 
text output on the new page. Control returns to PAGE^s 
caller for processing of further control words or text. 
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GROUP 3 PROCESSING — SWITCH INPUT PILE 



Control Words: 
•AP Append 
•IH Imbed 

These two control words involve very similar processing. 
The Append control word is somewhat simpler and will be 
described first. Before attempting to switch input files, a 
CMS STATE file system function is used to determine if the 
specified file exists. If it doesn't, an error exit is 
taken, otherwise processing continues. If any additional 
arguments, in addition to the file name, are specified, the 
special set symbols SO, 61, 82, etc. are defined via the 
SCSET routine (see Group 6 control word processing) . The 
input file name is then changed and the file line number is 
reset. Then, if the Append control word was being 
processed, the old input file is closed and control returns 
to process the next control word or input text. All further 
input requests are directed to the new input file. 

If the Imbed control word is encountered, there are a few 
differences. Imbed maintains a stack, up to 8 levels deep, 
that includes: 

• file name 

• file mode 

• file line number 

• hidden buffer (if additional control 
words or text were entered on the 

same line after the Imbed control word) . 

Before calling the common Append routine. Imbed sets aside 
all the necessary stack information. If the Append function 
returns correctly (i.e, there were no errors) , the stack is 
updated. 

The difference between Append and Imbed is much more obvious 
when the READ internal function is examined. It is 
responsible for reading the next line from the current input 
file. When it encounters an END-OF-FILE condition on a 
file, the input file is closed. It then examines the Imbed 
stack. If the stack is empty, processing is terminated - 
this is the normal termination condition. Otherwise, the 
top entry on the stack is removed and becomes the current 
input file and the read operation is retried. The Imbed 
stack operates in a last-in first-out (LIFO) mode. Thus, 
the reversion is to the input file that contained the Imbed 
control word that specified the current input file that has 
been processed. 
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GROUP 4 PROCESSING — SECTIONING 



Control Words: 

.CS Conditional- Sect ion 
•RC Revision-Code 

These two control words are used to delineate a section of 
the text. In the case of the Conditional-Section control 
word^ the specified section may be included or excluded from 
the output text. In the case of the Revision-Code control 
wordy the specified section may be marked by a designated 
revision code symbol in the left margin. The actual 
processing of these two control words involve numerous 
differences and will be explained separately. 

The Conditional-Section processing requires the use of two 
byte arrays, each 9 bytes long - 1 byte for each of the 9 
possible section codes. The arrays are called CSIHCLUD and 
CSCORRON. CSINCLOD(n) is X«00« if section (n) is to be 
included or X«FF« if section (n) is to be ignored. 
CSCORRON (n) is X«FF« if processing is currently in 
section (n) , otherwise it is X'OO'. In addition, there is a 
single bit, called CSSWS, in the switch byte A0GSW2 that is 
set to BM' if input text is currently being skipped (that 
is, CSCORRON (n) = X*FF« and CSINCLOD(n)= X*FF« for some 
value of i> . 

The .CS n INCLODE or .CS n IGNORE control words merely set 
the CSINCLUDE array as described above. The .CS ON or OFF 
control words start by setting CSCORRON (n) = CSINCLOD (n) or 
CSCORRON (n) = X'00«, respectively. Then, if any element of 
CSCORRON is X»FF«, CSSWS is set to BM«, otherwise it is set 
to B'O". 

In the main SCRIPT processing cycle all input is ignored 
whenever the CSSHS is set to BM', except for subsequent .CS 
n OFF control words. 

The Revision-Code processing is similar but slightly more 
complex due to the need to handle revision codes. The 
primary data bases used are a revision code table, RCCHAR^ 
and a stack, RCSTACK. When a non-blank revision code 
character is defined, it is placed into the RCCHAR byte 
array. Also, the output is shifted 3 spaces right to allow 
room for the revision code in the left margin. This shift 
is not necessary if there is already a shift in effect due 
to the CENTER or NOMBER options of SCRIPT. 

When a . RC n ON control word is processed, any revision code 
currently in affect is saved in the RCSTACK. On the other 
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hand, when a .RC n OFF is processed, the previous revision 
code, if any, is reinstated. At any time, RCCORR contains 
the current revision code number in affect or zero if none 
is in effect. Also, RCCHAR(O) is set to the corresponding 
revision code character. In the normal SCRIPT processing, 
whenever an output line is generated by the PRINT function, 
as opposed to lines that are actually skipped, the current 
revision code character, if any, is inserted into the left 
margin. 

There is a special case that must be handled carefully. A 
very short line may be preceeded and followed by RC ON and 
RC OFF, respectively. In this case, the revision code may 
be turned on and then turned off before the output text line 
is filled and printed. In this case, there would be no 
revision code appearing on the output. To handle this case, 
a special RCSTALL variable is used. If, at the time that an 
RC OFF is processed, there is text stored in the internal 
residual input buffer, RCSTALL is set to the current 
revision code character. Hhen the next line of output is 
generated, the RCSTALL character is placed in the left 
margin and automatically reset to be blank. 



GROnp 5 PROCESSING — STATOS HANDLING 



Control Words: 

. RE Restore-Status 
.SA Save-Status 

The Save and Restore Status control words use a stack to 
save/restore the current state of: (1) the binary switch 
bytes (e.g., SWITCH, AOGSW, etc.), (2) the control word 
variables (e.g., PL, LL, etc.) and (3) the output translate 
table. 

When the first Save Status control word is encountered, 
sufficient space to have a 5 level stack is allocated via 
the GETMAIN macro. In the current version each stack level 
requires U75 bytes or a total of 2375 bytes for a 5 level 
stack. At the completion of processing, the stack area, if 
allocated, is released via the FREEMAIN macro. If the Save 
Status control word is not used in the SCRIPT input, the 
stack area will not be allocated and the GETMAIN/FREEMAIN 
will not be required. 
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GROUP 6 PROCESSING — SYMBOL PROCESSING 



Control Words: 
.SE Set--Symbol 
• SO Substitute-Symbol 

The processing of symbols in SCRIPT is quite elaborate and 
is handled principally by the SCSYM CSECT. The Set Symbol 
control word is processed by the SCSET entry-point of SCSYM* 
The Substitute-Symbol control word does very little work 
directly, it merely sets or resets the SUBCNT variable. The 
actual substitution of symbols is performed by the SCSOB and 
SCSUB2 entry-point of SCSYM; these entries are invoked 
automatically by the internal READ function which provides 
the next input line to the basic SCRIPT processing cycle* 
After reading each input line, READ calls SCSUB if SUBCNT is 
non-zero. If substitution for a set symbol array reference, 
such as &REFERENCES (*) , results in a line longer than 130 
characters, substitution is only performed up to that point. 
After SCRIPT has processed this portion of the line, instead 
of reading a new input line, READ calls the SCSUB2 entry to 
get the next portion of the substitution. Bhen the 
substitution has been completed, READ reverts to reading new 
input lines. 

The set symbols are stored in a symbol table that is 
dynamically allocated via GETMAIN when the first set symbol 
is defined. If the symbol table is used, it occupies axl of 
available GETMAIN space minus 24K which is reserved for 
other uses. Each individual set symbol requires 32 bytes in 
the symbol table. In a typical 320K CMS virtual machine, 
there is about 160K available for the symbol table which is 
sufficient to handle 5000 symbols. 

The 32 byte symbol table entry is used as follows: 

TABSYM = 11 bytes for symbol's name, such as ALPHA. 
TABDATA = 14 bytes for the symbol's value, such as 

"HELLO". 
TABDLING = 1 byte to indicate actual length of symbol's 

value. 
TABIDX = 2 bytes for index subscript, if any, such as in 

&ALPHA(a) . 
TABPTR = a bytes for pointer to next array element, if 

subscripted symbol. 

Figure U illustrates the structure of the symbol table. 
Note that all subscripted set symbols, such as &BETA(1), 
6BETA(2), and &BETA(4), are chained together 
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Entry Nunber Name 



Value 



Value Length Index Next Element 



1 

2 
3 
U 
5 
6 



ALPHA 


"14" 


2 


BETA 


••2" 


1 


BETA 


"John" 


H 


GAHUA 


"1U" 


2 


BETA 


"Stu" 


3 


BETA 


"Madnick" 


7 



(a) Symbol Table 











3 , 


1 


6 ,<_! 





1 


4 


-<T 1 


2 


5-J<— « 



►Substitute on 
SET ALPHA = 14 
.SET BETA{) = •John' 
.SET GAHHA ^ & ALPHA 
SET BETA (4) = 'StU' 
SET BETAO = •Madnick' 



— sets BETA(1) 



-sets BETA (2) 



(b) Set— Symbol Sequence that 
Produces Symbol Table 



Figure 4. Set-Symbol Table 



in order of their index* The chain starts at the ••master" 
symbol for the array, which is called either 6BETA or 
6BETA ^0) for the example above. Recall that the single 
SCRIPT control word 

.SET BETAO ='Madnick^ 
is identical to the sequence: 

.SET BETA =&BETA+1 

.SET BETA(&BETA) =^Madnick^ 
which accounts for SBETA{0) having a value of ••2** and 
&BETA{1) and &BETA(2) being set as indicated in Figure 4. 
If &BETA (or, equivalently, &BETA(0)) had not been 
initialized in advance by the user, it is automatically set 
to zero by the first &BETA() reference. 

When the symbol table is allocated, the special symbols 
6SYSYEAR, &SYSMONTH, SSYSDAYOFY, SSYSDAYOFM, &SYSDAYOFW, 
SSYSHOUR, SSYSttlNUTE, and &SYSECOND are initialized and 
stored in the table. 

The SCSET entry into the SCSYM CSECT handles the Set-Symbol 
control word. The SPARSE internal function is used to parse 
the free form control word into a list of tokens, each 15 
bytes long. For example, the control word 

.SET GAMMA = SALPHA^-I 
would be converted into a list of 8 tokens as follows: 
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Length Value 



1. 


4 


".SET" 


2. 


5 


"GAMMA" 


3. 


X'FF* 


li Ml 


4. 


X'FF» 


»\ n 


5. 


X'FF' 


•i=n 


6. 


6 


"&ALPHA" 


7. 


X'FF* 


n^ii 


8. 


1 


II -in 



Special Vbyte break characters, such as =, (r ) # +# ^r *# 
and /, have the number 255 (X«FF«) stored in the length 
byte. 

The processing is neatly divided into two stages, first the 
left side of egual sign is handled and then the right side. 
The left side must be one of three basic forms: 

1. .SET SYMBOL = 

2. .SET SYMBOL = 

3. .SET SYMBOL (n)= 

Each case is handled somewhat differently. In all cases, 
the corresponding entry in the symbol table is found or 
created, if it did not previously exist in the symbol table. 

The right side of the egual sign may be either a cingle 
token or an arithmetic expression. If it is a single token, 
it may be either guoted or unguoted, for example: 

1. .SET W = ■HELLO' 

2. .SET X = HELLO 

3. .SET Y = •*6X.*« 

4. .SET Z = *SX.* 

Cases 1 and 2 are treated exactly the same, the guotes are 
only needed if there are imbedded blanks. Cases 3 and 4 are 
handled differently. Y will be assigned the value ••♦SX.*" 
since set substitution for SX is suppressed, whereas Z will 
be the value "*HELLO*" since set substitution for &X is 
requested. NOTE: Since the general Substitute-Symbol ON 
control word takes affect immediately after reading the 
input line, the symbol 6X will be substituted in both cases 
3 and 4 even before processing by the Set-Symbol control 
word if Substitute-Symbol ON mode is active. If case 3 is to 
set Y to the value "*&X.*", then Substitute-Symbol OFF must 
be in effect. 

If the right side of the equal sign is an arithmetic 
expression, it is evaluated left to right. Constants, such 
as 14, are converted to binary for computation and symbols, 
such as &COUNT, are retrieved from the symbol table and 
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converted to binary for computation. 

After the right side has been processed^ the resulting value 
is stored in the symbol table entry located during the first 
step. 

The SCSOB entry of the SCSYM CSECT performs the symbol 
substitution function. It is automatically called by the 
READ routine to scan and process each input line if 
substitution mode is in affect. The line is scanned left to 
right for set symbols. After substitution for a symbol^ the 
line is rescanned left to right. The substituion is 
complete when a scan is made that does not find a set symbol 
to be substituted. For example^ the sequence: 

.SET X = 'A* 

.SET y = 2 

.SET A1 = «Monday« 

.SET A2 = • Tuesday • 

Today is 8&X.SY 

will result in the following substitutions: 

1. Today is 8&X^&Y (scan and find &X.) 

2. Today is SA&Y (substitute for &X.) 

3. Today is &ASY (scan and find &Y) 

4. Today is SA2 (substitute for &¥) 

5. Today is 6A2 (scan and find &A2) 

6. Today is Tuesday (substitute for &A2| 

If a complete array substitution is requested ^ such as 
&BETA(*)^ all elements of &BETA^ except for &BETA(0)^ are 
substituted. The elements are separated by a comma and a 
blank. If the sequence illustrated in Figure 4 had been 
processed^ the text: 

.SUBSTITUTE; The names are SBETA(*).. 

would result in the line: 

The names are John^ Madnick^ Stu. 

If such an array substitution causes the line to exceed 130 
bytesy further substitution is suspended and the substituted 
portion is provided to the READ routine for processing along 
with a return code indicating that the substitution is 
incomplete. The entry SCSnB2 may be used to resume 
substitution and return the next portion. SCSUB2 should be 
called repeatedly until it returns a code that indicates 
that substituion has been entirely completed. 
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GROUP 7 PROCESSING ~ TERMINAL 1^0 



Control Words: 

.RD Read^Terminal 
• TY Type-on--Terminal 

These control words are quite simple* For the Read-Terminal 
control word, a WAITRD console I/O function is invoked as 
many times as specified. The actual line entered is stored 
in the B0FF2 area and is ignored and/or overlayed by the 
next WAITRD. If output is not to the console, the 
corresponding number of blank lines are generated. 

For the Type-On-Terminal control word, a TYPLIN console I/O 
function is invoked to print the message specified. This 
message is always printed on the terminal regardless of the 
output device specified for the formatted SCRIPT output. 



GROUP 8 PROCESSING — TERMINATION 



Control Words: 
.EF End-of-File 
.QU Quit 

Both of these control words utilize the standard SCRIPT 
termination sequence (see Method of Operation Diagram 6) , 
but at different entry stages. The End-of-File control word 
simulates the end-of-file error return for the current file 
and uses exactly the same processing sequence, except that 
the current file is not closed (i.e., the call to the CMS 
file system function FINIS is bypassed) . This corresponds 
to step 2 in Method of Operation Diagram 6. 

The End-of-File control word causes input processing to 
revert to the file that invoked^ the current imbed file. If 
the current file was not imbedded, then processing 
terminates. The Quit control word, on the other hand, 
results in an unconditional immediate termination. This 
corresponds to step 5 in Method of Operation Diagram 6. 

Termination processing is explained further in the 
TERMINATION section. 
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of file on N 

jntfile y 

ination y 



End 

current 

termination 



End-off lie f s^ 

control word 
termination 



IMBED Stack 



^ 
^ 



Quit control word 
termination 

Error 
termination 



^ 

^ 



(T) Close current file 

(2) If there is no other "open" file (i.e. file that 
invoked current IMBED file), go to (5) 

(z) Revert back to previous input file by obtaining 
filename, etc., from IMBED stack 



(4) Go to READ routine retry (normal processing) or 
main routine loop (end-of-file control word 
processing) 

(5) Print any residual text line 

(e) Close all open files, if any 

(7) erase temporary file CMSUT1 SCRIPT 

(i) Release storage allocated for SAVE/RESTORE 
stack and multiple column buffers, if any 

(9) If this is the first of two passes, reset initial 
conditions and restart SCR IPT processing 

Qo) Release storage allocated for set-symbol table, 
if any 

Qj) Close any output file or printer spool file 

(12) Disable the SPIE 

(13) Set return code and return to the CMS 
command processor 



^ 



*» 



FILNAM 
(current 
filename, etc.) 



IMBED Stack 




Exit 




Exit 



^... 



METHOD OF OPERATION DIAGRAM 6. TERMINATION 
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GROUP 9 PROCESSING — MULTIPLE COLUMN 



Control Words: 

•CB Column-Begin 

.CC Conditional-Column-Begin 

. CD Column-Definition 

The processing of these control words, as well as the 
Balance-Columns (.BC) , No-Balance-Columns (.NB) , and 
Column-Length (.CL) control words, are all highly related to 
the multiple column processing mechanism used in SCRIPT. 
Thus, the overall mechanism will be explained before 
elaborating upon the processing of the individual control 
words. 

When operating under standard single-column format, SCRIPT 
directly outputs a text line as soon as it has been 
completely formatted. Thus, at any time, there is at most a 
single line of text, the residual line, buffered in main 
storage. This line is kept in linked list element form 
(LLEF) . When operating under multiple-column format, the 
entire page of text must be formatted and saved internally 
before any output can be generated. After the page has been 
completed, the columns can be balanced, if necessary, and 
the composite multiple-column output lines can be produced. 

Storage space to save the page of text is allocated via 
GETMAIH. A variable conditional GETMAIN reguest is issued 
for 21120 bytes (approximately 160 lines of 132 bytes each 
buffer capacity) , although processing will proceed if as 
little as 4096 bytes of buffer space is available* If during 
processing, there is insufficient buffer space to hold a 
complete page of text, an error termination occurs. This 
error could occur if the page size is defined very large 
(for example, 400 lines per page) or if the user's virtual 
machine is so small that there is little buffer space 
available. 

The text lines are stored as variable-length character 
strings within the allocated storage buffer area. Each data 
line starts on a half-word boundary and begins with a 
four-byte header followed by the actual text. The header 
consists of two half-word fields: a relative pointer to the 
next data line and the actual length of the current data 
line. Figure 5 presents an example of the text storage 
format. The four text lines illustrated are 15 bytes 
(X>000FM# 7 bytes (X«0007«)r 1 byte (X'0001M# and 16 bytes 
(X'OOIO*) long, respectively. Each data line specifies the 
relative address of the next data line. The absolute 
address is computed by adding the relative address to the 
base address of the storage area. 
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Text lines (4 lines) 



1. 
2. 
3. 
4. 



This is line 1. 
Line 2. 



Third data line. 
§£2£135 Buffer Area 
Assume storage buffer starts at location X' 28000'. 



Location 

X«28000' 
X'280ia« 
X«28020« 
X'28026' 



Data Lines 

X»0014« ,X«O0OF«,C«This is line 1.» 
X«0020'X0007«,C'Line 2.' 
X«0026',X«0001«,C' • 
X«0000»,X'0010« ,C«Third data line.' 

A A A 

I I "—Data 

i I 

I «— Data length 

I 

•—Relative address of next data line 



Figure 5. Example of Text Storage for Multiple Column 
Processing 
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For example^ the relative address X'0014' specified on the 
first data line indicates that the second data line starts 
at X«28000« + X«0014« = X'2801U», 

The data line with its associated header information is 
called a Line Control Block (LCB) . The LCB*s are grouped 
into "areas" (i-e., columns). There is a separate Area 
Control Block (ACB) for each group of LCB's. Each ACB 
specifies the address of the first LCB and last LCB in the 
area as well as a count of the number of LCB^s in the area. 
All the LCB's in an area group are chained together via the 
"next LCB" relative pointer in the LCB header. Figure 6 
illustrates the relationship between the ACB's and LCB's. 
There are 2 ACB^s in use^ each represents a logical seguence 
of print lines. The reader should examine the figure and 
decipher the messages represented by each ACB. 

In order to manage the overall buffer storage space, there 
is a single Storage Control Block (SCB) . Most of the SCB 
information is guite static, such as the location (base 
address) of the buffer, the size of the buffer, the ending 
address of the buffer and the minimum/maximum space to be 
reguested via GETMAIN. The SCBHEXT field is the most active 
data element of the SCB. The buffer space is allocated on a 
"wrap-around" basis. LCB^s are allocated space one after 
another starting at the beginning of the buffer area. When 
the end of the buffer is reached, allocation restarts at the 
beginning again. The SCBHEXT field specifies the address of 
the buffer space to be allocated next. Some of the more 
subtle details will be explained below. It should be noted 
that conventional "garbage collection" technigues are not 
used and the buffer space is seguentially allocated. 

Now that the LCB, ACB, and SCB mechanisms have been 
described, the overall multiple column processing technigue 
can be explained. SCRIPT currently uses nine ACB's, called 
COLACBS, one for each of up to 9 text columns. The input 
text lines are formatted exactly as if it were single column 
processing. The Column-Length or Line-Length settings 
control the length of each generated line if FORMAT mode is 
in effect. Instead of outputting each formatted line onto 
the terminal, printer, or file, it is stored in the buffer 
area via the LSTORE routine and associated with COLACB(I) , 
the first ACB. When the first column has been completed, 
either by filling all the lines or by an explicit 
Column-Begin control word, the page line counter, PLCT, is 
reset to the top of the column and formatting continues — 
this time using C0LACB(2). This process continues for as 
many columns as the user designated on the Column-Definition 
control word or until an explicit Page-Eject control word is 
encountered. This procedure is only used if two or more 
columns have been specified or if a single column has been 
specified but it is not to start in the first print position 
of the line according to the user's Column-Definition (e.g.. 
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Location 
X«28000« 
X'28008' 
X«2800E« 
X«280ia' 
X'28018« 



LCB^s (in buffer area) 
X«0018«, X'0007«, C'This is' 
X'OOOO', X«0006«, C'wrong.' 
X'0014', X«0005«, 
X«0003«, 



X«0008« 

X'OOOO', X'OOOB', 



C'lt is' 

C'not' 

Can example.' 



ACB1 



ACBFIRST 

ACBLAST 

ACBLINES 



X'28000' 
X'28018' 
X'00002' 



ACB2 

ACBFIRST 

ACBLAST 

ACBLINES 



X»2800E' 
X'28008' 
X'O0003' 



Figure 6. Relationship Between Area Control Blocks 
and Line Control Blocks (LCBs) 



(ACBs) 



.CD 1 10) . 

After all the required columns have been filled or there has 
been an explicit Page-Eject control word, preparation for 
actual output commences. If column balancing is in effect 
and there has not been any explicit Column-Begin control 
word, the columns are balanced. This is accomplished by 
evenly distributing the LCB's among the ACB's. This actually 
involves several steps. First, all the LCB's are combined 
into a single LCB chain. The number of LCB's is divided by 
the number of columns to determine the appropriate number of 
LCB's desired per column. The one long LCB chain is then 
subdivided into sequences of the appropriate length and 
assigned to the ACB's. 

The output lines are formed by getting one line out of each 
ACB via the LFETCH routine. Each line is positioned in the 
output buffer space as specified in the user's 
Column-Definition control word. The line is then outputted 
to the terminal, printer, or file. This process continues 
for each line of the page until all the ACB's are empty. The 
LFETCH routine automatically deletes the LCB from the buffer 
area and sets the storage space to zero. If the LSTORE 
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routine ever attempts to allocate an LCB in space that is 
non-zeror this would indicate that the buffer space was too 
small and an error exit would occur. 

After the entire page of text has been extracted from the 
buffer space and outputted, normal sequencing continues. 
Footings and headings are generated and processing of the 
next page of text commences. Thus, in multiple column 
processing, an entire page of text time is kept in main 
storage. 



GROUP 10 PROCESSING -- - MISCELLANEOUS 



Control words: 
•DI Delay-Imbed 
.SP Space-Lines 
,TB Tab-Setting 
.TR Translate-Character 

These control words are each handled quite specially and 
will be explained separately. The Delay-Imbed control word 
copies the designated input text lines directly into a 
temporary file named CMSUTI SCRIPT- The CMS file system 
functions, such as ERASE, WRBOF, and FINIS, are used for 
this purpose, in addition to the SCRIPT READ routine. While 
copying, each line of input must be examined for the 
possibility of a .DI OFF if the Delay-Imbed was invoiced by a 
. DI ON, When the copying is completed either by the user 
specified line count or a .DI OFF, the DIPENDFG flag is set 
and control returns to the SCRIPT main processing loop. 
Normal SCRIPT processing resumes. After every page eject, 
whether automatic or explicit, the DICHK routine is always 
invoked. If the DIPENDFG flag is not set, DICHK does 
nothing. If the flag has been set, any residual text lines 
are appended to the CMSUTI SCRIPT file and the DINEXTFG flag 
is set. Control returns to the normal SCRIPT processing. 
Eventually, the READ routine is used to get the next input. 
At that time the DINEXTFG flag is examined. If it is set, 
the line ".IM CMSUT1" is returned as the next line to be 
processed. From this point on, processing is handled by the 
Imbed control word routine. 

The Space-Lines control word routine determines the number 
of lines to be spaced by multiplying the user specified 
count by the line spacing count as previously set by the 
Single-Space, Double-Space, or Line-Spacing control words. 
The SPACER utility routine is used to actually produce the 
appropriate number of blank output lines. 

The Tab-Setting control word routine uses two tables named 
TABS and NEWTABS. Each table contains a list of tab 
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settings, each entry is 2 bytes long. One byte specifies the 
column position, the other byte specifies the fill character 
to be used. The TABS table contains the default tab 
settings. When a Tab-Setting control word is encountered, 
the NEWTABS table is set as specified. The TABTAB pointer 
points to either TABS or NEWTABS. It is initially set to 
TABS and is reset to TABS whenever a Tab-Setting control 
word with no settings is encountered. TABTAB is set to 
NEWTABS whenever new tab settings are in effect. The SCRIPT 
line formatting routines use the tab settings to produce the 
desired result. While each input line is in the Linked List 
Element Form, the tab character is converted to the "fill" 
character, which is normally a blank, and the character 
multiplier is set to generate the appropriate number of 
"fill" characters. When the line is later linearized for 
output, the desired effect takes place. 

The Translate-Character control word routine uses a 256 byte 
table named TRANTAB. This table is used by means of the 370 
TRANSLATE (TR) machine instruction. If either the TRANSLATE 
option was specified in the SCRIPT command line or any 
Translate-Character control word was processed, the TRSWS 
flag is set. Subsequently, every output line is subjected to 
translation immediately prior to actual output. Each 
Translate-Character control word sets one byte in the 
TRANTAB table. 



TERMINATION 



The SCRIPT termination processing has already been covered 
in the section explaining the Group 8 control words, 
End-of-File and QUIT. Method of Operation Diagram 6 
describes the overall process. 

Termination processing may be invoked due to the following 
events: 

1. Encountering a physical end-of-file or End-of-File 
control word while processing the primary input file. 

2. A Quit control word. 

3. An error condition (certain error conditions are 
recoverable and do not cause termination if the 
CONTINUE option had been specified) . 
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SECTION 3: PROGRAM ORGANIZATION AND DIRECTORY 



This section lists the SCRIPT program routines and describes 
their function. Each individual assembly module, control 
section (CESCT) , and entry name is identified. 



PROGRAM ORGANIZATION 



The SCRIPT program consists of four separate assembly 
modules named: SCSPRT, SCSFOR, SCSLNK, and SCSLIN. The 
SCSPRT module, which contains the SCRIPT CSECT, is the 
primary routine of the program. It includes the 
initialization, main processing loop, and termination 
functions of the SCRIPT program. The other assembly modules, 
and their associated CSECTs and ENTRYs, serve as utility 
routines to the SCSPRT module. Thus, the SCRIPT program 
structure has only a two level module hierarchy. 



MODULE DIRECTORY 



As noted above, the SCRIPT program consists of four assembly 
modules. These assembly modules are further divided into 13 
control sections (CSECTS). In addition to the CSECT names, 
there are 31 entry-points into these control sections. The 
module directory, depicted in Figure 7, indicates the 
hierarchical relationship between assembly modules, control 
sections, and entries. For each control section and entry 
there is a brief description of that entry's function. 



INTERNAL SUBROUTINES OF SCSPRT 



The SCSPRT assembly module (SCRIPT CSECT) contains an action 
for every SCRIPT control word. Many of these actions merely 
involve setting a binary switch and are performed by using a 
common routine with a parameter. The other actions require 
subroutines internal to the SCSPRT module. In some cases 
entries into the other assembly modules are used to perform 
part of the control word action. These control word 
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Assembly 
Module 



Control 

Sections 

(CSECTs) 



SCSPRT 



SCSFOR 



Entries Description 



SCRIPT Main module, 

SPRT Alternate name. 

SCRIPT2 Alternate name, 
SCSPRT Alternate name. 

TAB Control word table. 



SCSFOR Dummy CSECT. 

SFOR Merge, truncate and adjust LLE lines, 
MERGE Append new line to residual line. 
ADJUST Insert fill characters. 
CENTER Center or right-adjust line. 

SLNK Process Link List Element (LLE) lines. 

LINKINIT Initialize link list storage. 

LIHKPOT Convert string to LLEF. 

LINKGETT Convert LLEF to typewriter format. 

LINKGETP Convert LLEF to printer format. 

LINKSTAR Pointer to start of free list. 

LINKAREA Link List Element storage area. 

STITLE Process title control words. 
ETENTHY Process even-top title. 
EBENTRY Process even-bottom title. 
BTENTRY Process bottom title. 
TTENTRY Process top title. 
OTENTRY Process odd-top title. 
OBENTRY Process odd-bottom title. 
REENTRY Process heading title. 
FORMTITL Format and return appropriate title. 
PSENTRY Set page-number-symbol character. 

SABBREV Convert unabbreviated control word. 

SPRCWORD Print list of legal control words. 



Figure 7. Module Directory (Part 1 of 2) 
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U3 



Control 
Lssembly Sections 
!odule (CSECTs) 



Entries 



Description 



JCSLNK 



SCSLNK 

SERR 
SERRM 

SCSYM 



SCSET 
SCSUB 
SCS0B2 
TABCLOSE 



Dummy CSECT. 

Print error messages. 
Error message table. 

Process set-symbol and substitution. 
Process set-symbol control word. 
Scan line and substitute symbols. 
Resume substitution if SCSUB overflow. 
Deallocate symbol table space. 



SCSLIN 



SCSLIN Process multiple column format. 

LOPEN Initialize buffer space. 

LCLOSE Deallocate buffer space. 

LSTORE Store a line in buffer. 

LPAGE Form a multiple-column line. 

LFETCH Fetch a single line from buffer. 

LBALANCE Rearrange buffer lines to balance column 



Figure 7. Module Directory (Part 2 of 2) 
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subroutines are identified in the assembly listing for 
SCSPRT, The mapping from control word to action routine is 
specified by the TAB CSECT which is also part of the SCSPRT 
assembly module. 

The following utility subroutines are internal to the SCSPRT 
assembly module: 

l£t£I Function 

COLUMN Start new column (invoked by Column-Begin or 
bottom of page) . 

COLDUMP Output a page of multiple column text that has 
been previously stored in the multiple column 
buffer area. 



C¥B 



Convert EBCDIC character string to a binary 
number. 



GETARG Scan input line in BUPF2 for location of first 
argument. 

GETHOM Scan input line in B0FF2 and convert argument to 
binary number. 

GPARSE Scan input line in B0FF2 and convert in to 
sequence of 8-byte tokens. 

lOPRIHT Direct output line to the appropriate output 
device (terminal, printer, or file) . 



PARMROUT 



Process the CBS Parameter List and set 
appropriate binary switches and variables. 



the 



PAGE 



Generate a page-eject including bottom and top 
titles required. 



PRINT 



PRINTI 



Convert text line from link list element form 
(LLEF) to linear form and initiate output 
operations (uses the PRINTI, PRINT2r and PRINTS 
utility routines) . 

Adjusts the character multiplier of a LLEF line 
to account for amount to be centered. 



PRINT2 



PRINT3 



Convert LLEF line to linear form appropriate for 
output device. 

Cause the linearized line to be outputed (via 
lOPRINT) . 



READ 



Read next input line into BUFF2 area. Other 
related activities are initiated in this 
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routine, such as set-symbol substitution and 
end- of -file processing. 

SPACER Generate the appropriate number of blank lines* 

SWON/SWOFF OR or AND, respectively, the 2-byte argument 
with the SWITCH and AUGSW switch bytes. 
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SECTION a: DIAGNOSTIC AIDS 



This section describes the error handling procedure employed 
by SCRIPT. It also outlines facilities provided in SCRIPT 
that assist in the debugging process. 



ERROR HANDLING 



Whenever an error is detected during SCRIPT processing, the 
SERR routine is invoked for error handling. It is provided 
with the following information in its parameter list: 

1. Index code (error number x 4) . 

2. Last control word line. 

3. Cumulative input line counter. 

4. Current file name. 

5. Current file line number, 

6. Number of active files. 

7. Pointer to the Imbed stack. 

Associated with each index code there is: error message 
text, an action code, and a return code. Depending upon the 
action codes, the count of lines read, the trace back of 
Imbeds, and/or the last control word line will be printed on 
the terminal. There are three possible return actions: (1) 
do not allow error retry, use standard termination seguence, 
(2) allow error retry if user had specified the CONTINUE 
option, or (3) terminate immediately without completing the 
normal termination seguence. 



DEBUGGING FACILITIES 



In addition to conventional debugging techniques, SCRIPT 
provides two addition diagnostic aids. By specifying DEBUG 
as a SCRIPT command option, the SPIE program interrupt 
processor will be inhibited. Under these circumstances, the 
CMS DEBUG program can be used for interactive examination of 
SCRIPT variables and flow of control. See the IBM Virtual 
Machine FacilitY/370 Prqqrammerfs Guide to Deb 11331113, 
GC20-1807, for additional information. 

Program errors are difficult to isolate if the error is 
allowed to propagate its effect so that the error condition 
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is not detected until much later du 
isolate errors^ SCRIPT checks the 1 
various points during processing. If 
found to be invalid, processing ter 
an appropriate error message. The S 
forward the error message printo 
programming personnel for error 
procedure is used if the SCRIPT prog 
activated (established via the SPIE 
the DEBUG option has been used) • 



ring processing. To help 
egality of variables at 
an internal variable is 
minates immediately with 
CRIPT user is advised to 
ut to the appropriate 
analysis. A similar 
ram interrupt handler is 
macro instruction unless 



REGISTER USE 



The register usage for the SCSPRT module are listed below* 



address) for 
work register. 



internal 



Work register. 

1 Contains address of parameter lists, also used as 
work register, 

2 work register. 

3 Work register. 

4 Work register. 

5 Linkage resiter (return 
subroutines, also used as 

6 Base register. 

7 Work register. 

8 Base register. 

9 Work register. 

10 Work register. 

11 Work register. 

12 Work register. 

13 Contains address of save 
serves as a base register. 

14 Linkage register (return 
command processor, also used 

15 Linkage register (entry 
external utility routines. 



area, simultaneously 

address) to the CMS 
as work register, 
address) to SCRIPT 
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